home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / nrpas13.arc / SCRSHO.DEM < prev    next >
Text File  |  1991-05-01  |  217b  |  17 lines
  1. PROGRAM d9r1(input,output);
  2. (* driver for routine SCRSHO *)
  3.  
  4. (*$I MODFILE.PAS *)
  5. (*$I BESSJ0.PAS *)
  6.  
  7. FUNCTION fx(x: real): real;
  8. BEGIN
  9.    fx := bessj0(x)
  10. END;
  11.  
  12. (*$I SCRSHO.PAS *)
  13.  
  14. BEGIN
  15.    scrsho
  16. END.
  17.